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TECHNICAL MEMORANDUM 


A PROCESS ACTIVITY MONITOR FOR AOS /VS 

I. INTRODUCTION 


Managers of computer systems are becoming increasingly aware of the necessity 
to guard against unauthorized access. A primary security concern for any system is 
an active terminal left unattended by the user. Some systems are equipped with an 
automatic time-out option. The Data General MV/ 10000, however, is not. When 
selecting the MV/10000 to drive the Shuttle Management Information System (SMIS) 
for the Marshall Space Flight Center's Shuttle Projects Office, analysts and managers 
agreed that a time-out feature would need to be incorporated into the system. Such 
a feature would decrease the chance of unauthorized access to the system and free 
limited system resources. It is the purpose of this memorandum to describe the 
process activity monitor and process terminator tasks developed for SMIS, by which 
users registering no CPU activity for some time quantum are disconnected from the 
system . 


II. SYSTEM DESCRIPTION 


The Data General ECLIPSE MV/10000 runs under Advanced Operating System/ 
Virtual Storage (AOS/VS), a multitasking, multiprogramming, demand-paged, virtual 
storage operating system. It can support users on a time-sharing basis, run batch 
jobs, or perform control applications on a real-time basis. The user communicates 
with AOS /VS from the console via Command Line Interpreter (CLI) commands. AOS/ 
VS is unique to 32- bit ECLIPSE MV computers, and has the capacity to run up to 
256 processes at a time. 

The MV/10000 process tree begins with AOS /VS, designated as Process Identi- 
fication number (PID) 0. AOS /VS assigns a PID to each other process. AOS /VS 
has two sons, PMGR, PID 1, and OP, PID 2. PMGR is the peripheral manager. OP 
is the "master process" because it is operable only from the master console. 

EXEC, a son of OP, runs as PID 3. All user processes and the printer queues 
are sons of EXEC. Most system processes are sons of OP. System processes include 
peripheral controllers, data base management systems, communication packages and 
Comprehensive Electronic Office (CEO) office automation software. Figure 1 shows a 
typical process tree for PID 2 (OP). 


III. PROBLEM OVERVIEW 


The goal was to develop a task to monitor CPU activity and terminate any inac- 
tive user process. During development it was decided to design two tasks which 
could run independently, the monitor, and the process terminator. The monitor 
would provide a quick and easy reference to system activity. The process ter- 
minator, when activated, would warn the user, then terminate the process after the 
threshold of inactivity had been passed. 



OP 

2 (OP :OP) 

3 ( OP : EXEC) 

19 (OP :LPB) 

20 (OP :LPE1 ) 

21 (OP.-LPE) 

22 ( OP : C0N40) . . . 

32 ( OP : CON89) . . . 

33 (OP :C0N41 ) . . . 
114 (OP :CON57) . . 

4 ( OP : INFOS_II ) 

9 (0P:009) 

12 ( OP : CORBWR) . . 

13 ( OP : CORBIW) . . 

14 (OP:CORCLN) . . 

15 ( OP : CORARH) . . 

116 ( OP : NETOP) 

24 (OP:X25_LMGR) 
117 ( OP : SVTA) . . . 

154 (OP :RMA) 

157 ( OP :FTA) 


:LOCK_CLI 
:l)TIL : EXEC 
:UTIL :XLPT 
:UTIL : XLPT 
: UTIL : XLPT 
:UTIL:XLPT 
: UTIL : XLPT 
: UTIL : XLPT 
: UTIL: XLPT 
: INFOS :INFOS_II 
. . . : LANG : ORACLE : IOR 
: LANG: ORACLE :BWR 
: LANG : ORACLE :BIW 
: LANG: ORACLE :CLN 
: LANG : ORACLE :ARH 
: NET: NETOP 
: NET : X25_LMGR 
: NET: SVTA 
: NET : RMA 
: NET :FTA 


Figure 1. Process tree for OP. 

However, three basic problems needed to be solved. First, a process was 
required by which only process trees with inactive terminal sons would be terminated. 
Second, the updates registered by the CEO clock indicate that the process tree of a 
CEO user is active, when, in fact, it is not. Therefore, it was necessary to deter- 
mine the inactivity threshold and terminate only those processes below that limit. 

The third problem concerned exceptions to the rule, that is, certain users who for 
various reasons would never be terminated. 


IV. SOLUTION OVERVIEW 


The two tasks developed were PIDACT, the process monitor, and ERP, the 
process terminator. PIDACT provides a visual display of the status of each PID. 

ERP can be activated or deactivated at any time. If it is determined that a user is 
inactive, then the user is warned. After a specified number of warnings, the process 
tree is terminated. A "VIP Table" was developed to ensure that certain users are not 
subject to termination. 

Together PIDACT and ERP solve the three problems mentioned in the above 
section. To ensure that only inactive process trees are terminated, the process tree 
is traversed using the ?PSTAT system call. This traversal enables the task to find 
the terminal son and father process of the tree. Next, to ensure that inactive CEO 
processes are terminated, a threshold of CPU time was needed. This was determined 
by observing and testing of processes. It was found that active processes typically 
use more than five milliseconds of CPU time per block minute. For example, pressing 
a NEW LINE takes about 6 milliseconds. The VIP table, called VIP. DAT, which can be 
modified by a text editor, was designed to ensure that selected users are not ter- 
minated . 
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The remaining system calls needed for PIDACT and ERP are: ?SEND, used to 

send messages to an inactive PID; ?RUNTM, used to get the run time ticks of a 
process; ?GPRNM, used to get the program path name of a process; and ?GUNM, used 
to get the owner, username of the father process. ?TERM, used to terminate the 
process tree, is the only privileged system call, and requires Superprocess privileges. 


V. APPLICATIONS 


A. Process Activity Monitor 

The task which monitors system activity is called PIDACT. PIDACT divides 
processes into four groups: 

1) Father process or OP 

2) Active process 

3) Inactive terminal son 

4) Unassigned PID. 

These divisions allow the system manager to easily monitor system activity. 

On the screen, the father process or OP is displayed in normal video; active pro- 
cesses are blinking; inactive terminal sons are shown in reverse video; and the 
unassigned PIDS are shown as zeros. Figure 2 shows a typical PIDACT display. 

The PIDs and usernames of those users logged on are shown on the right. The 
numbers in square brackets are scales, and help locate a PID quickly. PIDACT up- 
dates the screen once a minute, and is date and time stamped. To execute PIDACT 
requires no special privileges. 

To illustrate how PIDACT works, the three process trees shown in Figure 2 
shall be examined. First consider PID 44, a father process with an inactive terminal 
son process at PID 40. This process tree is subject to the process termination task, 
ERP. Now consider PID 102. PID 102 is a father process with a son process at 114, 
which is also a father process. PID 114 has two sons, at PID 116 and PID 32. Both 
son processes are active, therefore this process tree is active and would not be ter- 
minated by ERP. Lastly, consider PID 72. PID 72 is a father process with two sons, 
PID 73 and PID 78. PID 73 is active, PID 78 is an inactive terminal son. This 
process tree would be subject to termination. 


B . Process Terminator 

The task which terminates processes is called ERP. Approximately once every 
eight minutes PIDACT determines the CPU activity of all the processes on the system. 

If activity is below the threshold, the user is warned. If no significant activity is 
observed after two successive warnings, the process is terminated by ERP. Superprocess 
privileges are required to terminate the process. Upon warning a user or terminating 
a process, ERP records the action in a log. Figure 3 shows an example of an ERP 
log. 


The following is a list of criteria ERP uses to terminate a process: 
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Figure 2. PIDACT screen. 



PID: 

36 

1ST 

WARNING 

LINDLEY 

13:55:06 

02/25/85 

PID: 

39 

1ST 

WARNING 

MCKOSKY 

13:55:07 

02/25/85 

PID: 

43 

1ST 

WARNING 

WEAVER 

13:55:07 

02/25/85 

PID: 

51 

1ST 

WARNING 

ADAMS 

13:55:07 

02/25/85 

PID: 

16 

1ST 

WARNING 

CARTER 

13:55:07 

02/25/85 

PID: 

46 

1ST 

WARNING 

BUSH 

14:00:09 

02/25/85 

PID: 

36 

2ND 

WARNING 

LINDLEY 

14:00:09 

02/25/85 

PID: 

39 

2ND 

WARNING 

MCKOSKY 

14:00:09 

02/25/85 

PID: 

43 

2ND 

WARNING 

WEAVER 

14:00:09 

02/25/85 

PID: 

51 

2ND 

WARNING 

ADAMS 

14:00:09 

02/25/85 

PID: 

16 

2ND 

WARNING 

CARTER 

14:00:09 

02/25/85 

PID: 

103 

1ST 

WARNING 

NAFUS 

14:00:09 

02/25/85 

PID: 

90 

1ST 

WARNING 

SHOTTS 

14:00:09 

02/25/85 

PID: 

36 

TERMINATION 

LINDLEY 

14:05:10 

02/25/85 

PID: 

39 

TERMINATION 

MCKOSKY 

14:05:10 

02/25/85 

PID: 

43 

TERMINATION 

WEAVER 

14:05:10 

02/25/85 

PID: 

51 

TERMINATION 

ADAMS 

14:05:10 

02/25/85 

PID: 

57 

1ST 

WARNING 

SMITH 

14:05:10 

02/25/85 


Figure 3. ERP log. 

1) Current CPU time < old CPU time + threshold 

2) Current CPU time >= old CPU time 

3) USERNAME not in VIP table 

4) PID > 3 

5) Program name <> OP 

6) Father process resolves to EXEC. 

ERP was designed specifically to terminate processes based upon inactive leaf 
nodes in the process tree. Since CEO leaves an inactive CEO word processing 
(CEO_WP) when completing word processing yet not exiting the CEO control program 
(CEO~CP), the active CEO CP will be terminated. This feature could be changed by 
modifying ERP or writing an additional task to monitor and terminate CEO WP pro- 
cesses only. In addition, if a user initiates co-processes where they are both leaf 
nodes in the process tree and only one is active, the process tree is terminated. If 
the user intends to have an inactive co-process as a leaf node, then he should request 
that the System Manager place his name in the VIP table. 


VI. CONCLUSION 


The PIDACT and ERP tasks are part of the SMIS security system. Though 
security is the primary consideration, the termination of idle processes also frees 
limited system resources: terminals, memory, and process capacity. The CPU 

utilization involved in running ERP is an average 0 . 2 percent . Each idle process 
utilizes an average of 0.2 percent. Therefore, for SMIS, the overhead for running 
ERP is well justified. 
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APPENDIX A 


COMMENT PIDACT - PID ACTIVITY MACRO 

WRITE ['.ASCII 214] 

WRITE TO END DISPLAY PERFORM A / 'C / 'B 
WRITE 

STRING [ ! READ press NEW LINE begin PID ACTIVITY DISPLAY] 
WIDE 

X/l= IGN/2= IGN PIDACT 
NORM 

WRITE [ ! ASCI I 214] 


COMMENT ?ROC_ERP 

COMMENT MACRO TO PROC UP THE ERP PID 

COMMENT TERMINATION PROCESS 

DEL/l=IGN/2= IGN SAVE . ERP . LOG 
REN/1=IGN/2=IGN ERP. LOG SAVE . ERP . LOG 
CRE ERP. LOG 

PROC/NOBL/INP=@NULL/OUT='3NULL/LI ST=ERP . LOG/SUPERP ERP 


WIDE 

MACRO TO PUT DG 460 TERMINAL 
INTO WIDE MODE 

CHAR/CPL= 134 

WRITE [ ! ASCI I 236 306 330 260 260 270 265] 
WRITE [ ! ASCI I 236 306 313] 


COMMENT NORM 

COMMENT MACRO TO PUT DG 460 TERMINAL INTO 

COMMENT 80 COLUMN MODE 

CHAR/CPL=80 

WRITE [ ! ASCI I 236 306 330 260 260 264 277] 

WRITE [{ASCII 236 306 312] 


COMMENT 

COMMENT 

COMMENT 


PRECEDING PAGE BLANK NOT FILMED 



c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE CURPOS (Nl, N2 , I BLK ) 

THIS SUBROUTINE WILL PERFORM 
CURSOR POSITIONING FOR THE 
DATA GENERAL 410 AND 460 TERMINALS 
WERE Nl IS THE ROW AND N2 IS THE COLUMN 

THE VALUE I BLK IS A FLAG WHICH INDICATES 
THAT THE SCREEN IS TO BE ERASED BEFORE 
THE CURSOR IS TO BE POSITIONED 

CALLING PROGRAM SHOULD OUTPUT AFTER CALL 
IN THE FOLLOWING FORM: 

FORMAT ( 1 # 1 , 

THIS WILL SUPRESS THEN NEXT FORMAT FROM 
OUTPUTTING A CR 


C 

c 

C 

c 

C 

c 

C 

c 

C 

c 

c 


101 


c 

c 

c 


C 

C 

c 


c 

c 

c 


c 

c 

c 


102 

c 


CHARACTER N*l(4) 

INTEGER Nl , N2 , ITMP1, ITMP2 , I BLK , I 

N - ARRAY TO CONTAIN ASCII TERM . COMMANDS 

Nl - ROW 

N2 - COLUMN 

ITMP1 - INTERUM CALCULATION FOR ROW 
ITMP2 - INTERUM CALCULATION FOR COLUMN 
I BLK - ERASE SCREEN FLAG (1=YES) 

I - LOCAL INDEX 


CHECK IF SCREEN IS TO BE BLANKED 1ST 
IF (IBLK.EQ.1) THEN 

WRITE (*, 101) ! ERASE SCREEN 

FORMAT ( IX, , <036><106><105>’ ) 

ENDIF 


PERFORM INITIAL 

CALCULATIONS 



ITMP1=N1/16 

! MOD 

16 

ROW 

ITMP2=N2/16 

! MOD 

16 

COLUMN 

CALCULATE COLUMN 

POSITION 



N ( 1 ) =CHAR ( ITMP2+48 ) 

! COLUMN 

1ST 


N(2)=CHAR(N2-( ITMP2*16 )+48 ) ! IN TWO DIGITS 


CALCULATE ROW POSITION 

N(3)=CHAR( ITMP1+48) ! ROW 2ND 

N(4)=CHAR(Nl-( ITMP1*16 )+48 ) l IN NEXT TWO DIGITS 


OUTPUT THE POSITION 

WRITE (*,102) <N(r), 1=1,4) 'OUTPUT THE FOUR CHAR 

FORMAT (IX, '<036><106><120> f ,4A1,$) 'SUPRESS CR 


RETURN 

END 
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PROGRAM ERP 


WARNS AND THEN TERMINATES 
INACTIVE PID'S 


C 

c 

c 

c 


c 


c 

c 

c 


c 

c 

c 


100 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 


& 

& 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


INTEGERM ITIM(256), ICPU(256), IDIS(256> 
INTEGERS ETIME , CPUTIM, I ERR 


DATA ITIM/2 56*0/ 
DATA ICPU/2 56 *0/ 
DATA IDIS/256*0/ 


! ELAPSED TIME ARRAY 
[CPU TIME ARRAY 
! PI D ARRAY 


SET PROGRAM LIMITS AND FLAGS 


IMIN=8 
IFIRST=0 
IMINCPLf=5 * IMIN 


•MINUTE UPDATE TIME 
! INITIALIZE FIRST LOOP FLAG 
•SET CPU MINIMUM CPU ACTIVITY 


PERFORM FOR ALL POSSIBLE PIDS 

DO 1=1,256 

GET ELAPSED TIME AND CPU TIME FOR 
THE SELECTED PID 


K= I 

CALL RUNTM (K, ETIME, CPUTIM, I ERR) 

CHECK IF PID IS IN USE 
IF (IERR.NE.O) THEN 

PID IS NOT IN USE 

IDIS( I ) = I 1 USE ACTUAL PID NO. 

ICPU(I)=0 ! ZERO OUT CPU TIME 

ITIM( I ) =0 ! ZERO OUT ELAPS TIME 

ELSE 


PID IS IN USE GET THE FATHER'S PID 
WHICH IS CLOSEST TO OP. EXEC 


K= I 

CALL PDAD ( K , IDIS( I ) ) 

IF ( ICPU ( I ) +IMINCPU . LT. CPUTIM .OR. 

CPUTIM.LT. ICPU( I ) .OR. 

ICPU ( I ) . EQ. 0 ) THEN 

A CHANGE IN CPU TIME HAS OCCURED 
OR A NEW PROCESS HAS TAKEN THIS PID 
OR THIS IS THE INITIAL RUN 
UPDATE ELAPSED TIME, CPU TIME 
AND DISPLAY FIELD 

IT IM( I ) =ETIME ! UPDATE ELAPSED TIME 

ELSE 


NO CHANGE IN CPU TIME 

CHECK IF THIS PROCESS HAS ANY SONS 
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c 

c 

c 

c 

c 


c 


A=I 

CALL PIDSOM U<, I?LG) 


ORIGINAL 
OE POOR 


PAQ£ jjg 

QUALrrr 


if no sons than check for 
WARNING or termination 

IGNORE ANY PI OS WHICH RESOLVE LESS THAN 4 


IF (IFLG.EQ.O .AND. I D I S ( I ) . GT . 3 ) THEN 

CALL LIMIT UDIS(I), ETIME, ITIM(I), IMIN) 
END IF 


C 

C 


END IF 

I CPU ( I ) =CP'J'T IM 'UPDATE CPU TIME 


C 


END 


IF 


C 

C 

c 

c 

c 


END DO 

IF (IFIRST.EQ.l) THEN 

SET UP TO DELAY 5 MINUTES 
CALL MDELAY (IMIN) 


C 

C 

c 

c 

c 


END IF 


IFIRST=1 


GOTO 100 


END 


% INCLUDE 
% INCLUDE 
% INCLUDE 
% INCLUDE 
% INCLUDE 
% INCLUDE 
% INCLUDE 
% INCLUDE 
% INCLUDE 
% INCLUDE 


"RUNTM. F77" 
"PDAD.F77" 
"PIDSON. F77" 
"MDELAY. F7 7" 
"UNAME. F77" 

" TERM . F7 7 " 
"LIMIT. F77" 

" SEND . F7 7 " 
"VIP. F77" 
"TIMDAT . F77 " 


DO FOREVER 


'SET INITIAL PASS DONE 
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SUBROUTINE LIMIT (PID, ETIME, OTIME, MIN) 

C 

C DETERMINES THE WARNING OR TERMINATION 

C STATUS OF THE SELECTED PID 

C 

INTEGER*! PID, ETIME, OTIME, DELTET, MIN 
INTEGERM ILIMIT1, ILIMIT2, ILIMIT3 
CHARACTER UNM*32, TMDT* 18 
C 

C INITIALIZE LIMIT VALUES 

C 

ILIMIT1=1*MIN*60 

ILIMIT2=2*MIN*60 

ILIMIT3=3*MIN*60 

C 

C CALCULATE DELTA ELAPSED TIME 

C 



DELTET= ETIME -OTIME 

CHECK IF IN ACTION STATE 
IF (DELTET. GT. ILIMIT1 ) THEN 

GET USERNAME OF PID 
CALL UNAME (PID, UNM) 

CHECK IF THIS PID IS EXEMPT 

I FLG=0 

CALL VIP (UNM, IFLG) 

IF (IFLG.EQ.O) THEN 

PID IS NOT EXEMPT 


IF (DELTET. GT. ILIMIT1 .AND. DELTET . LE . I LIMIT2 ) THEN 

ISSUE 1ST WARNING 

CALL SEND (PID, 1) 

CALL TIMDAT (TMDT) 

WRITE (12, 101) PID, UNM( 1:15), TMDT 
FORMAT (IX,' PID:’, 13,' 1ST WARNING ',A15, 2X, A18) 
END IF 

IF (DELTET. GT. ILIMIT2 .AND. DELTET . LE . I LIMIT3 ) THEN 

ISSUE 2ND WARNING 

CALL SEND (PID, 2) 

CALL TIMDAT (TMDT) 

WRITE (12, 102) PID, UNM(1:15), TMDT 
FORMAT (IX,’ PID:', 13,’ 2ND WARNING ',A15, 2X, A18) 
END IF 

IF (DELTET. GT. ILIMIT3 ) THEN 

TERMINATE PROCESS 

CALL SEND (PID, 3) 

CALL TIMDAT ( T MDT ) 

WRITE (12, I):) PID, UNMU:15), TMDT 
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C 

C 

C 


END IE 

END IF 

END IF 

RETURN 

END 


SUBROUTINE MDELAY (MIN) 


THIS ROUTINE WILL DELAY THE SELECTED 

NUMBER OF MINUTES BEFORE RESUMING THE PROCESS 


INTEGER* 4 MIN 


SET UP TO DELAY 1 MINUTE 


IPID=179 ! WDELAY CALL 

I AC0 = 1000*60 *MIN ! DELAY IN MILLISECONDS 

IAC1=0 ! RESERVED 

I AC2=0 ! RESERVED 


C 


PERFORM WDELAY CALL TO 
DELAY MIN MINUTES 

IERR= I SYS ( I PI D , I ACO , IAC1, IAC2) 


RETURN 

END 
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c 

£*********************************************************** 

c 

SUBROUTINE PDAD (PIDIN, PIDOUT) 

C 

C THIS SUBROUTINE RETURNS THE HIGHEST PID 

C FATHER BELOW PID 3 IN PIDOUT 

C 

INTEGERS I SYS , IACO, IAC1, IAC2 
INTEGER* 4 PIDIN, PIDOUT 
CHARACTER UNM*32 
C 

C CHECK FOR A PID LOWER THAN 4 

C 

IF (PIDIN. GT. 3) THEN 
C 

C SET CALLIN PID NUMBER 

C 


C 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


IAC1=PIDIN 


FIND THE FATHER 
DO WHILE ( IAC1.GT. 3 ) 


I = I AC1 


SET UP TO MAKE FATHER PROCESS CALL 


IPID=87 
I AC0= I 
I AC1 = 0 
I AC2 = 0 


! FATHER PROCESS CALL 
! P ID NO. 

! RETURN FATHER PID 
! RETURN LIST 


THIS CALL WILL RETURN THE FATHER'S 
PID IN I AC I 


I ERR= I SYS ( IPID , IACO, IAC1, IAC2) 


END DO 
C 

IF (IAC1.LT.3) THEN 
PIDOUT=IACl 
ELSE 

CALL UNAME( I , UNM) 

IF (UNM(1:3) .EQ. 'OP ') THEN 
PIDOUT=2 
ELSE 

P I DOUT= I 
END IF 
END IF 
C 


c 


ELSE 


PIDOUT=PIDIN 

IF (PIDOUT. EQ. 3 ) PIDOUT=2 


C 


ENDIF 


RETURN 

END 
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PROGRAM PIDACT 


DISPLAYS ACTIVE PID NUMBERS CONTINUOUSLY 
ON SCREEN BASED UPON CPU TIME 


C 

C 

C 

C 


C 

C 

C 

C 

C 

C 


C 

C 

C 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

100 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 


INTEGER* 4 
INTEGER*4 
CHARACTER 
CHARACTER 


ITIM( 256 ) , I CPU ( 256 ) , IDIS(256), 
ETIME, CPUTIM, IERR , CNT(4) 
MODE*6 ( 256 ) , BLK*2 , REV*2, DIM*2 
UNM*32, TMDT*18 


USE ( 256 ) 

NRM*4 , NUL*2 


INITIALIZE THE FOLLOWING ARRAYS 

I CPU - CONTAINING LAST CPU TIME 
I TIM - CONTAINING LAST ELAPSED TIME 
IDIS - CONTAINS PID NUMBER IF ACTIVE 


DATA CNT/4*0/ 

DATA ICPU/256*0/, ITIM/256*0/, IDIS/256*0/, USE/256*0/ 


SET PROGRAM LIMITS AND FLAGS 


IMIN=1 ! MINUTE UPDATE TIME 

I FIRST=0 UNITIALIZE FIRST LOOP FLAG 

IMINCPU=5* IMIN ! SET CPU MINIMUM CPU ACTIVITY 


INITIALIZE DISPLAY CHARACTERISTICS 


NUL= '<000><000>' 
BLK='<216><000> ' 

REV= '<236><304>' 

DIM= '<234><000> ' 

NRM=' <2 17x236x30 5><2 35>' 

PUT UP FORM 


.'NULL CHARACTERS 
! CHARACTER BLINK ON 
! REVERSE VIDIO 
! CHARACTER DIM ON 
! BLINK OFF/REVERSE OF/DIM OFF 


CALL PIDFORM 


PERFORM FOR ALL POSSIBLE PIDS 


DO 1=1,256 

GET ELAPSED TIME AND CPU TIME FOR 
THE SELECTED PID 

K=I 

CALL RUNTM (K, ETIME, CPUTIM, IERR)‘ 

CHECK IF PID IS IN USE 
IF (IERR.NE.0) THEN 


PID IS NOT IN USE - SET DISPLAY TO 
PID NO. AND SET MODE TO DIM 


IDI S ( I ) = I 

MODE ( I ) =NRM//D IM 

ICPU( I ) =0 

ITIM( I ) =0 

IDIS(I )=0 

USE ( I ) =0 

CNT ( 4 ) =CNT ( 4 ) + 1 


! USE ACTUAL PID NO. 
! SET MODE TO DIM 
! CPU TIME 
! ELAPSED TIME 
! D I SPLAY PID 
1USER NAME ARRAY 
! UPDATE UNUSED CNT 
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c 

c 

c 

c 


c 


& 

& 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


PID IS IN USE GET THE FATHER’S PID 
WHICH IS CLOSEST TO OP. EXEC 


K= I 

CALL PDAD ( K , IDIS( I ) ) 

USE(IDIS(I) )=1 ! UPDATE FOR USER DISP 

IF ( ICPU( I ) +IMINCPU. LT.CPUTIM .OR. 

CPUTIM.LT. ICPU( I ) .OR. 

ICPU(I).EQ.O) THEN 


A CHANGE IN CPU TIME HAS OCCURED 
OR A NEW PROCESS HAS TAKEN THIS PID 
OR THIS IS THE INITIAL RUN 
UPDATE ELAPSED TIME , CPU TIME 
AND DISPLAY FIELD 

ITIM( I ) =ETIME [UPDATE ELAPSED TIME 

MODE ( I ) =NRM/ /BLK [SET BLINK MODE ON 

CNT ( 2 ) =CNT ( 2 ) + 1 [UPDATE ACTIVE COUNT 

ELSE 

NO CHANGE IN CPU TIME 

CHECK IF THIS PROCESS HAS ANY SONS 

K=I 

CALL PIDSON (K, I FLG ) 

IF NO SONS AND NOT OP THEN REVERSE VIDIO 
ELSE MAKE DISPLAY NORMAL 


IF ( IFLG.EQ. 0 .AND. IDI 
MODE ( I ) =NRM/ /REV 
CNT ( 3 ) =CNT ( 3 ) + 1 
ELSE 

MODE ( I ) =NRM//NUL 
CNT ( 1 ) =CNT ( 1 ) + 1 
END IF 

END IF 

ICPU( I ) =CPUT IM 


( I ) . NE . 2 ) THEN 

[PID HAS NO SONS 
[UPDATE INACTIVE COUNT 

[PID HAS SON ( S ) 

[UPDATE FATHER COUNT 


[UPDATE CPU TIME 


C 

C 

c 

c 

c 

c 

c 


c 

300 

c 


END IF 
END DO 


DISPLAY CURRENT ACTIVE PIDS 
IN MATRIX FORM ON SCREEN 


DO 1=1,241,16 


M= 1/16+1 


1 CALC ROW INDEX 


CALL CURPOS (M, 5 , 0 ) 
WRITE (*,300) ( MODE ( K ) 


! POSITION 
IDIS(K) ,K=I , 1+7 ) 


CURSOR 


FORMAT (T,16(A6,I4)) 
CALL CURPOS ' M, 4 3 , 3 > 


'POSITION CURSOR 
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c 


END DO 


C 

c 

c 


400 


c 

c 

c 


500 


c 

c 

c 


600 

c 

c 

c 


c 

c 

c 


c 

c 

c 


DISPLAY ACTIVE USER NAMES 


PRINT * , NRM 

M=1 ! INITIAL ROW POSITION 

N=75 ! INITIAL COLUMN POS 

DO 1=1, 256 

IF (USE(I) .EQ.l) THEN 
K= I 

CALL UNAME (K, UNM) 

IF ((I.GT.2 .AND. UNM( 1 : 3 ) . NE . ' OP ') .OR. I.LE.2) THEN 
CALL CURPOS (M,N, 0 ) 

WRITE (*, 400) I, UNM( 1:8) 

FORMAT ( 'It' ,I5,1X,A8) 

M=M+ 1 

IF (M.GT.22) THEN 
N=N+ 14 
M=1 

END IF 
END IF 
END IF 
END DO 

BLANK OUT ANY UNUSED FIELDS 

DO WHILE (N.LT.120) 

CALL CURPOS (M, N, 0) 

WRITE (*, 500) 

FORMAT ' ) 

M=M+ 1 

IF (M.GT.22) THEN 
N=N+14 
M=1 

END IF 
END DO 

UPDATE TIME/DATE DISPLAY 

CALL TIMDAT ( TMDT ) 

CALL CURPOS (0,96,0) 

WRITE (*, 600) NRM, TMDT 
FORMAT ( '#' , A4 , A18 ) 

UPDATE DISPLAY COUNTS 


DO 1=1,4 

M= 1+18 

CALL CURPOS (M, 32,0) 

WRITE (*,FMT="( '#' ,13)") CNT(I) 

CNT ( I ) =0 ! RESET COUNTERS 

END DO 

ZERO OUT USER DISPLAY TABLE 

DO 1=1,256 
USE ( I ) =0 
END DO 


CHECK FOR INITIAL RUN CONDITION 
DO NOT DELAY IF ONLY RUN ONCE 
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c 

c 

c 

c 

c 


IF ( I FIRST. EQ, 1 ) THEN 

SET UP TO DELAY 5 MINUTES 
CALL MDELAY ( IMIN) 

END IF 

I F I RST= 1 ! SET INITIAL PASS DONE 


C 

c 

c 

c 


GOTO 100 


% INCLUDE 
% INCLUDE 
% INCLUDE 
% INCLUDE 
% INCLUDE 
% INCLUDE 
% INCLUDE 
% INCLUDE 


END 

"CURPOS . F7 7 " 

" RUNTM.F77" 

" PDAD. F77 " 
"PIDSON. F7 7 " 
"MDELAY. F77 M 
"PIDFORM. F7 7 11 
"UNAME.F77" 
"TIMDAT.F77" 


DO FOREVER 



c 

C*** 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 




SUBROUTINE PIDFORM 

THIS SUBROUTINE WILL LAYOUT A FORM 
FOR THE PID ACTIVITY REPORT 

CHARACTER MODE*6(4), LEGEND* 22 ( 4 ) 

DG 400 SERIES CONTROLL CODES 
FOR: 

NORMAL 
BLINK ON 
REVERSE VIDIO 
DIM ON 


DATA MODE/ , <217><236><305><235><000><000>' , 
& ' <211><226><305><225><216><00Q>' , 

& , < 217 >< 236 >< 305 >< 235 >< 236 >< 304 > , , 

& , < 217 >< 236 >< 305 >< 235 >< 234 >< 000 > , / 

C 

C EXPLANATION LEGEND 

C 


C 

c 

c 


& 

& 

& 


101 

c 


c 

c 

c 


DATA LEGEND/ 1 FATHER PROCESS OR OP 1 , 

'ACTIVE PROCESS 
'INACTIVE TERMINAL SON ' , 

’ UNASSIGNED PID V 

OUTPUT TOP PID LEGEND 

CALL CURPOS (0,5,1) 

WRITE (*, 101) 

FORMAT ('#',' [0] [1] [2] [3] [4] [5] (6] [7]') 

CALL CURPOS (0,43,0) 

WRITE (*, 101) 


OUTPUT SIDE PID LEGENDS 


DO 1=1, 256,16 
J= I +8 

WRITE (*, 201)1, J 

201 FORMAT (IX, 1 [ 1 , 13, • ] ’ ,33X, ’ [ 1 , 13, 1 ] ’ ) 

END DO 
C 

C OUTPUT BOTTOM PID LEGEND 

C 

CALL CURPOS (17,5,0) 

WRITE (*, 101) 

C 

CALL CURPOS (17,43,0) 

WRITE (*, 101) 

C 

c OUTPUT EXPLANATION LEGENDS 

C 


DO 1=1,4 
K= I + 18 

CALL CURPOS (K, 10 ,0) 

WRITE (*, 301) MODE ( I ) , LEGEND! I ) 
301 FORMAT ( 1 4 ' ,A6, A22) 

END DO 
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END 




SUBROUTINE PIDSON (PID, FLAG) 

THIS ROUTINE DETERMINES IF THIS PID 
HAS ANY SONS 

IF YES THEN FLAG=1 
ELSE FLAG=0 

INTEGER* 4 ISYS, IACO, IAC1, IAC2 
INTEGER *4 PID, FLAG 
INTEGER* 2 STAT(200) 

PERFORM PSTAT CALL TO DETERMINE 
IF SELECTED PID HAS ANY SONS 

IPID=5 
IAC0=PID 
I AC1=0 

I AC2 =WORDADDR ( STAT ) 

IERR= ISYS ( IPID, IACO, IAC1 , IAC2) 

CHECK BIT PATTERN FOR ANY SONS 

FLAG=0 
DO J=2 , 17 

FLAG= FLAG+ STAT ( J ) 

END DO 

IF SONS EXIST THEN MAKE FLAG = 1 

IF ( FLAG.NE. 0 ) FLAG=1 

RETURN 

END 
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SUBROUTINE RUNTM (PID, ETIME, CPUTIM, I ERR) 

GETS PID NUMBER AND RETURNS ELAPSED TIME 
IN SECONDS AND CPU TIME IN MILLISECONDS 


INTEGERM I SYS, IACO, IAC1, IAC2 
INTEGERM PAC(4) 

INTEGERM PID, ETIME, CPUTIM, I ERR 

SET UP TO MAKE SYSTEM RUN TIME CALL 


IPID=24 
IAC0=PID 
I AC 1 = 0 

I AC2 = WORDADDR ( PAC ) 


! RUNTIME CALL 
! PID NO. 
(USING PID 
! RETURN LIST 


PERFORM RUNTIME CALL TO GET 
ELAPSED TIME AND CPU TIME 

IERR=ISYS ( IPID, IACO, IAC1, IAC2) 

ETIME=PAC ( 1 ) ! RETURN ELAPSED TIME 

CPUT IM=PAC ( 2 ) ! RETURN CPU TIME 

RETURN 

END 
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c 

c 

c 

q 

q 

q 

c 


c 


c 

q 

q 


SUBROUTINE SEND (PID, NUM) 

THIS SUBRQUTINS RETURNS 'SENDS WARNING 
MESSAGES' TO THE SEPPQTEP PID NO- 
UPON THE THIRD WARDING PRING SENT 
THIS ROUTINE HILL CAEN POT THE TERMINATION 
PF THE SELECTED PIP 

INTEQPF*4 I SYS , IAC0, I AW, JAC? 

INTEGER* 4 PID, NUN 
CHARACTER NSSS*47 f HARN*4?(3J 

DATA WARN/'<BEL>IST WARNING TERMINAL INACTIVE FQR 5 Wft 

'<EEL>FINAL WARNING BEFORE PPG OFF - INACTIVE IP MIN 
'<bel>termination - INACTIVE 15 MIN 

SET MESSAGE LENGTH 


c 

c 

c 

c 

c 

c 


LEN=47 


MESS=WARN ( NUM ) 


GET SELECTED MESSAGE 


SET UR TO MARE ?SENR CARL 


IP ID=206 
IAC0=PID 

iaci=byteapdr(mess) 

IAC2=LEN 


1SENP CALL 
I PID NO. '' 

j MESSAGE pointer 

! message length 


SEND THE MESSAGE TO T RE SELEpTEp Pip 
IERR=ISYS (ipip, IACq f IAP1, IAC2) 

CHECH FOR TERMINATION 


c 

C 

c 

c 
c 
c 

£*******************************»******* **«^*itft*4r**«'************* 

c* REMOVE COMMENTS TO ACTIVATE TERMINATION OPERATION * 

C * 

IF ( NUM , EQ » 3 ) THEN ! * 

CALL' TERM (PID) I * 

END IF I * 

C * 


C 


RETURN 

END 
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SUBROUTINE TERM (PID) 


THIS SUBROUTINE TURNS ON SUPERPROCESS AND THEN 
TERMINATES THE SELECTED PID, ALL SON PROCESSES 
ARE ACCORDINGLY ALSO TERMINATED 


INTEGER 11 ' 4 ISYS, IPID, IACO , IAC1, IAC2, PID 

SET UP TO TURN ON SUPERPROCESS 


IPID=43 
IAC0 = -1 
IAC1 = 0 
I AC2=0 


! SUPROC CALL 
[TURN ON 
! UNDEFINED 
! UNDEFINED 


TURN ON SUPERPROCESS 


IERR=ISYS (IPID, IACO, 
SET UP TO MAKE 


I AC1 , I AC 2 ) 
7GTERM CALL 


IPI D=45 
I AC0=PI D 
I AC1 = 0 
I AC2 = 0 


! TERM CALL 
! PID NO. 

! CONTAINS PID 
! NO MESSAGE 


TERMINATE THE SELECTED PID 
IERR=ISYS (IPID, IACO, IAC1, IAC2) 

SET UP TO TURN OFF SUPERPROCESS 


IPID=43 
I AC0 = 1 
I AC1=0 
IAC2 = 0 


'SUPROC CALL 
! TURN OFF 
! UNDEFINED 
! UNDEFINED 


C 


TERMINATE THE SELECTED PID 
IERR= ISYS (IPID, IACO, IAC1, IAC2) 

RETURN 

END 
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SUBROUTINE TIMDAT ( TMDT ) 

THIS SUBROUTINE WILL RETURN THE CURRENT 
SYSTEM TIME AND DATE IN CHARACTER FORMAT 
IN STRING TMDT (OF LENGTH 18) 

INTEGER I DATE ( 3 ) , ITIME(3), IBLD(6) 

CHARACTER TMDT* 18 

GET SYSTEM DATE AND TIME FOR HEADER 

CALL DATE ( I DATE) 

CALL TIME ( ITIME) 

SET UP DATE TO BE IN MM/DD/YY FORM 

ITMP=IDATE( 1)-1900 
I DATE ( 1 ) = I DATE ( 2 ) 

I DATE ( 2 ) = I DATE ( 3 ) 

I DATE ( 3 ) = I TMP 

DO 1=1,3 

IBLD( I ) = ITIME ( I ) 

I BLD ( I + 3 ) = I DATE ( I ) 

END DO 

DO 1=1,6 

M=(l-1)*3+1 
N=M+ 1 

ITMP= I BLD ( I )/10 
I BLD ( I ) =IBLD( I )-( ITMP*10 ) 

TMDT (M:M) =CHAR( ITMP+48) 

TMDT ( N: N) =CHAR( IBLD( I )+48) 

END DO 

TMDT (3:3)=’ : ’ 

TMDT (6:6)=' : ’ 

TMDT (9:9)=' ’ 

TMDT ( 1 2 : 1 2 ) = * / * 

TMDT (15:15)=’/' 

TMDT (18:18)=' ' 

RETURN 

END 


23 



nnn nno n noon nnnnnn 


SUBROUTINE UNAME (PID, UNM) 

THIS SUBROUTINE WILL RETURN THE USERNAME OF 
THE CURRENT PROCESS IN THE CHARACTER 
STRING UNM, THE STRING WILL BE TERMINATED 
WITH A <NULL> 

CHARACTER UNM* 32 

INTEGER*4 ISYS, IACO, IAC1, IAC2, IFLG, PID 

DETERMINE IF THIS IS TO BE THE 
CALLING TASK'S PID 

IF (PID.LT.O) THEN 
IFLG=1 
ELSE 
IFLG=0 
END IF 

IPI D=58 !?GUNM CALL 

I AC0=PID ! PID NO. OR -1 

IAC1= I FLG 1USING PID OR -1 

IAC2=BYTEADDR(UNM) ! RETURN LIST 

PERFORM SYSTEM CALL TO GET USERNAME 

IERR=ISYS ( I P I D , IACO, IACI, IAC2) 

BLANK THE STRING AFTER THE USERNAME 

IFLG=0 
DO 1=1,32 

IF (UNM( I:I).EQ.'<000>') IFLG=1 
IF (IFLG.EQ.l) UNM( I : I ) = ' ' 

END DO 

RETURN 

END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


100 

101 


c 

c 

c 


& 

& 

& 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

999 

c 


SUBROUTINE VIP (UNAME, IFLG) 

THIS ROUTINE WILL DETERMINE IF THE 
USERNAME PASSED TO IT EXIST IN THE 
VIP. DAT FILE, IF YES THEN IFLG=1 

ELSE I FLG=0 

CHARACTER UNAME* 32, VNAME*32 

INITIALIZE RETURN FLAG TO 0 


IFLG=0 


OPEN VIP FILE 

OPEN (UNIT=21 , STATUS 3 ' OLD 
FILE 3 ’ VIP. DAT' , 

I OST AT 3 1 ERR 1 , RECFM 3 ' DS ' , FORM 3 ' FORMATTED PAD 3 ' YES ' , 
ERR=999 ) 


READ ONE (1) LINE 

READ ( 21 , FMT=101 , IOSTAT=IERR2 , ERR=999, RETURNRECL 3 I L ) VNAME 
FORMAT (A3 2) 


CHECK FOR ZERO RECORD LENGTH 

IF (IL.EQ.O) GOTO 999 

CHECK IF NAME'S MATCH 

IF ( VNAME. NE. UNAME) GOTO 100 

A MATCH HAS BEEN FOUND 
SET IFLG TO 1 

IFLG=1 


CLOSE THE VIP FILE AND RETURN TO CALLER 


CLOSE (UNIT=21 ) 

RETURN 

END 
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